Brotikasten/BROTCD01.iso/games/dis411.d64/.bomber <

Commodore BASIC | 1995-07-31 | 8KB | 253 lines

20 PRINT"[147]":T=0:U=1:Z=0:V=53248:G=1024:H=55296:B=0:F=0:Y=0
30 GB=G+852:HB=H+852:FF=80:GS=G+879:GT=G+961:GF=G+80:HF=H+80:BH%=0
31 FORJ=12324TO12350:POKEJ,0:NEXT
40 FORJ=12288TO12323:READX:POKEJ,X:NEXT:FORJ=12544TO12617:READX:POKEJ,X:NEXT
50 POKE53270,PEEK(53270)AND247:POKE649,1:POKE52,48:POKE56,48
60 GOTO3000
80 S=54272:FORJ=0TO4:POKES+J,0:NEXT
90 Y=130:FB=0:BT=0:BD=0:TT=0:BG=0:A$="":GOTO100
91 DATA0,4,0,0,6,0,0,7,0,128,7,128,192,7,192,224,7,224
92 DATA224,7,240,224,7,248,240,7,252,255,255,255,255,255,255,0,248,12
93 DATA169,0,133,251,169,4,133,252,160,1,169,22,170,177,251
94 DATA136,145,251,202,240,12,24,152,105,41,168,144,241
95 DATA230,252,76,13,49,230,251,169,40,197,251,208,219,96
96 DATA160,0,169,4,133,254,169,119,133,253,162,20,169,32,145,253
97 DATA202,208,1,96,24,152,105,40,168,144,241,230,254,76,54,49
100 PRINT"[147]"
101 PRINTTAB(4)"GEWUENSCHTER SCHWIERIGKEITSGRAD"
102 PRINTTAB(4)"1 = LEICHT  *  9  = SCHWER"
103 POKE198,0:WAIT198,1:GETL$:POKE198,1
104 L=VAL(L$):IFL<=0THEN103
105 IFL>1ORL<9THEN107
106 GOTO103
107 PRINTTAB(4)"SCHWIERIGKEITSGRAD "L:FORLL=1TO1500:NEXT
115 POKES+24,47:POKES,12:POKES+1,1:POKES+6,143:POKES+21,7:POKES+23,1:POKES+17,1
120 POKES+4,129:POKES+14,88:POKES+15,115:POKES+20,240
130 PRINT"[147]":POKE53280,0:POKE53281,6
140 FORJ=0TO1023:POKEH+J,Z:NEXT:POKEH+961,U
150 FORJ=1TO38:POKEG+880+J,102:NEXT
151 POKE2040,192:POKEV+39,0
160 POKEV,104:POKEV+1,Y:POKEV+21,1
170 TI$="000000":POKE650,128:L=L/20
171 E=RND(U):X=PEEK(V+31):POKEHB,Z
180 IFE<LTHENF=RND(U)*760:POKEHF+F,7:POKEGF+F,42:GOSUB1000
190 SYS12586
200 IFE<.3THENPOKEGS,88
201 IFB=16THENPOKEGS,160
202 IFE>.95ANDFB=ZTHENB=101:FB=U:TT=TT+U
210 IFB/10=INT(B/10)THENPOKES+18,65:POKEGT,B/10+47
220 POKES+18,64:IFFB=UTHENB=B-U
230 IFB=ZTHENFB=Z
240 GETA$:IFA$=""THEN380
250 IFA$=CHR$(134)ANDBG=ZTHENBH%=210-Y:BG=U:BD=BD+U:POKES+20,248:GOTO370
260 IFA$=CHR$(135)THENY=Y-8
270 IFA$=CHR$(136)THENY=Y+8
280 IFY<ZTHENY=Z
290 POKEV+U,Y
370 A$=""
380 IFBG=UTHENPOKES+18,64:POKES+15,130+BH%/2:POKES+18,65
390 SYS12544
400 IFBG=ZTHENPOKES+18,64
401 KK$=TI$
402 IFKK$>="000200"THEN600
410 IFPEEK(V+31)=UTHEN600
420 POKEH+F,0
430 BH%=BH%-4
440 IFB=2ANDBH%=ZTHENGOSUB2000
450 SYS12586:SYS12544
460 BH%=BH%-4
470 IFBG=UTHENPOKES+18,64:POKES+15,130+BH%/2:POKES+18,65
480 IFPEEK(V+31)=1THEN600
490 IFB=2ANDBH%=ZTHENGOSUB2000
500 IFBG=UANDBH%=ZTHENPOKEHB,1:POKEGB,214:POKES+18,64:BG=0:POKES+20,240:GOSUB1000
510 GOTO171
600 GOSUB9100:PRINT"[159]":POKEV+21,0
610 FORJ=0TO24:POKES+J,0:NEXT
620 POKES+24,15:POKES,200:POKES+1,2:POKES+5,13:POKES+6,248:POKES+4,129
630 FORK=1TO1500:NEXT
640 POKES+4,128:IFKK$>="000200"THEN661
650 IFY>206THENPRINTTAB(5)"[149]ZU TIEF GEFLOGEN[146][159]":GOTO701
660 PRINTTAB(5)"[149]ABGESCHOSSEN[146][159]":GOTO670
661 PRINTTAB(5)"[149]ZEIT ZU ENDE[146][159]"
670 PRINT"ABGEWORFENE BOMBEN ";BD
680 PRINT"TREFFER ";BT
690 PRINT"VON ";TT;" MOEGLICHEN"
700 PRINT"FLUGZEIT ";INT(TI/60);" SEKUNDEN":GOSUB4000:GOTO800
800 IFLEN(NA$)>1THEN810
801 GOSUB9100:PRINT"[159]"
802 PRINTTAB(5):INPUT"DEIN NAME";NA$
803 IFLEN(NA$)<=0ORLEN(NA$)>12THENNA$="":PRINT"[145][145]":GOTO802
810 GOSUB9100:PRINT""
811 PRINTTAB(10)" H I G H S C O R E [146]"
812 PRINTTAB(10)"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
813 PU=PU+BT
814 PRINT" [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
815 PRINT" [194]                                    [194]"
816 PRINT" [194]       ";NA$;"   PUNKTE ";PU;TAB(38)"[194]"
817 PRINT" [194]                                    [194]"
818 PRINT" [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
819 GOSUB4000:GOTO3095
1000 POKES+7,25:POKES+8,1:POKES+12,15:POKES+13,240:POKES+11,129:POKES+11,128
1001 RETURN
2000 POKEHB,U:POKEGB,214:POKE53280,U
2001 GOSUB1000:GOSUB1000
2002 BT=BT+U
2003 POKEHB,Z:POKEGB,32:POKE53280,Z:RETURN
3000 PRINT"[147][156]":POKE53280,0:POKE53281,0
3001 FORAA=1TO18:PRINT""TAB(AA)"BOMBER"
3002 GETE$:IFE$<>""THENAA=20:GOTO3007
3003 NEXT
3004 PRINT"":FORAA=1TO18:PRINTTAB(AA)"BOMBER"
3007 NEXT
3008 PRINT""
3010 PRINTTAB(28)"V";:GOSUB3015
3011 PRINTTAB(28)"O";:GOSUB3015
3012 PRINTTAB(28)"N";:GOSUB3015:PRINT"[154]":GOTO3020
3015 FORJJ=1TO30 :NEXT:RETURN
3020 PRINTTAB(22)"K";:GOSUB3050
3021 PRINTTAB(22)"A";:GOSUB3050
3022 PRINTTAB(22)"R";:GOSUB3050
3023 PRINTTAB(22)"L";:GOSUB3050
3024 PRINTTAB(22)"H";:GOSUB3050
3025 PRINTTAB(22)"E";:GOSUB3050
3026 PRINTTAB(22)"I";:GOSUB3050
3027 PRINTTAB(22)"N";:GOSUB3050
3028 PRINTTAB(22)"Z";:GOSUB3050
3029 PRINTTAB(22)" ";:GOSUB3050
3030 PRINTTAB(22)"H";:GOSUB3050
3031 PRINTTAB(22)"E";:GOSUB3050
3032 PRINTTAB(22)"R";:GOSUB3050
3033 PRINTTAB(22)"P";:GOSUB3050
3034 PRINTTAB(22)"E";:GOSUB3050
3035 PRINTTAB(22)"L";:GOSUB3050:PRINT"[158]":GOTO3060
3050 FORJJ=1TO30 :NEXT:RETURN
3060 PRINTTAB(21)"C";:GOSUB3090
3061 PRINTTAB(21)"O";:GOSUB3090
3062 PRINTTAB(21)"P";:GOSUB3090
3063 PRINTTAB(21)"Y";:GOSUB3090
3064 PRINTTAB(21)"R";:GOSUB3090
3065 PRINTTAB(21)"I";:GOSUB3090
3066 PRINTTAB(21)"G";:GOSUB3090
3067 PRINTTAB(21)"H";:GOSUB3090
3068 PRINTTAB(21)"T";:GOSUB3090
3069 PRINTTAB(21)" ";:GOSUB3090
3070 PRINTTAB(21)"(";:GOSUB3090
3071 PRINTTAB(21)"C";:GOSUB3090
3072 PRINTTAB(21)")";:GOSUB3090
3073 PRINTTAB(21)" ";:GOSUB3090
3074 PRINTTAB(21)"1";:GOSUB3090
3075 PRINTTAB(21)"9";:GOSUB3090
3076 PRINTTAB(21)"8";:GOSUB3090
3077 PRINTTAB(21)"5";:GOSUB3090
3078 PRINT""TAB(25)"DRUECK SPACE":GOSUB4001:GOTO3095
3090 FORJJ=1TO10 :NEXT:RETURN
3095 GOSUB9100:PRINT""
3096 PRINTTAB(10)"SPIEL              [1]"
3097 PRINTTAB(10)"SPIEL ERKLAERUNG   [2]"
3098 PRINTTAB(10)"SPIEL INHALT       [3]"
3099 PRINTTAB(10)"TASTENBELEGUNG     [4]"
3100 PRINTTAB(10)"HIGHSCORE LOESCHEN [5]"
3101 PRINTTAB(10)"SPIEL BEENDEN      [6]"
3102 POKE198,0:WAIT198,1:GETE$
3103 IFE$="1"THEN80
3104 IFE$="2"THEN3130
3105 IFE$="3"THEN3110
3106 IFE$="4"THEN3150
3107 IFE$="5"THEN9300
3108 IFE$="6"THEN5000
3109 GOTO3102
3110 GOSUB9100:PRINT"[159]"
3112 PRINTTAB(3)"DU HAST DEN AUFTRAG,FEINDLICHE"
3113 PRINTTAB(3)"BODENSTATIONEN ZU BOMBARDIEREN."
3114 PRINTTAB(3)"MIT SCHWEREN GESCHUETZEN WERDEN"
3115 PRINTTAB(3)"DEINE ANGRIFFE AUS DER LUFT"
3116 PRINTTAB(3)"VERTEIDIGT. DEIN AUFTRAG IST"
3117 PRINTTAB(3)"ERST ERFUELLT, WENN DEIN BOMBER"
3118 PRINTTAB(3)"ABGESTUERZT IST. ZUVOR MUSST DU"
3119 PRINTTAB(3)"MOEGLICHST VIELE BODENSTATIONEN"
3120 PRINTTAB(3)"ZERSTOERT HABEN. DIE BOMBEN GENAU"
3121 PRINTTAB(3)"IM RICHTIGEN MOMENT ABZUWERFEN,IST"
3122 PRINTTAB(3)"NICHT EINFACH,WEIL DIESE SICH NOCH"
3123 PRINTTAB(3)"DURCH DIE FEUERSALVEN DER LUFTABWEHR"
3124 PRINTTAB(3)"DURCHSCHLAENGELN MUESSEN. BEHALTE"
3125 PRINTTAB(3)"DAS ZIEL GUT IM AUGE.":GOSUB4000:GOTO3095
3130 GOSUB9100PRINT"[159][145]"
3131 PRINTTAB(4)"ZUERST MUSST DU DEN SCHWIERIGKEITS-"
3132 PRINTTAB(4)"GRAD DES SPIELS BESTIMMEN."
3133 PRINTTAB(4)"1 = IST LEICHT UND BIS 9 WIRD "
3134 PRINTTAB(4)"ES IMMER SCHWIERIGER. BEI STUFE 1"
3135 PRINTTAB(4)"HAST DU GENUEGEND ZEIT, DICH AUF"
3136 PRINTTAB(4)"DEN BOMBENABWURF EINZUSTELLEN."
3137 PRINTTAB(4)"BEI STUFE 9 HAGELT ES NUR SO VON"
3138 PRINTTAB(4)"GEGNERISCHEN GESCHOSSEN."
3139 PRINTTAB(4)"NACH DEM SPIELSTART SIEHST DU"
3140 PRINTTAB(4)"DEINEN BOMBER AM HIMMEL UND UNTEN"
3141 PRINTTAB(4)"ZIEHEN BAEUME VORBEI. ACHTE DARAUF"
3142 PRINTTAB(4)"WIE SCHNELL DIE BAEUME VORBEIZIEHEN"
3143 PRINTTAB(4)"DAMIT DU BESSER DIE GESCHWINDIGKEIT"
3144 PRINTTAB(4)"ABSCHAETZEN KANNST.":GOSUB4000:GOTO3170
3150 GOSUB9100:PRINT"[159]"
3151 PRINTTAB(4)" TASTENBELEGUNG [146]"
3152 PRINTTAB(4)" F5 [146] - BOMBER STEIGT AUF"
3153 PRINTTAB(4)" F7 [146] - BOMBER STEIGT AB"
3154 PRINTTAB(4)" F3 [146] - BOMBENABWURF"
3155 PRINTTAB(4)"WENN DU NACH OBEN FLIEGST, BIST DU"
3156 PRINTTAB(4)"AUSSER REICHWEITE DES FEUERHAGELS;"
3157 PRINTTAB(4)"FLIEGST DU ZU TIEF, KANNST DU IN"
3158 PRINTTAB(4)"DEN BAUMKRONEN ABSTUERZEN UND DAS"
3159 PRINTTAB(4)"SPIEL IST ZU ENDE."
3160 PRINTTAB(4)"DU HAS